home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Database How-To / Visual Basic 4 Database - How-to (The Waite Group)(1995).iso / errors.fr_ / errors.fr
Text File  |  1995-07-19  |  2KB  |  82 lines
  1. VERSION 4.00
  2. Begin VB.Form frmODBCErrors 
  3.    Caption         =   "ODBC Error"
  4.    ClientHeight    =   3090
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   6120
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   0
  11.       weight          =   700
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   3585
  18.    Left            =   990
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    ScaleHeight     =   3090
  22.    ScaleWidth      =   6120
  23.    Top             =   1095
  24.    Width           =   6330
  25.    Begin VB.CommandButton cmdQuit 
  26.       Caption         =   "OK"
  27.       Height          =   375
  28.       Left            =   4920
  29.       TabIndex        =   1
  30.       Top             =   2640
  31.       Width           =   1095
  32.    End
  33.    Begin MSOutl.Outline outErrors 
  34.       Height          =   2415
  35.       Left            =   120
  36.       TabIndex        =   0
  37.       Top             =   120
  38.       Width           =   5895
  39.       _Version        =   65536
  40.       _ExtentX        =   10398
  41.       _ExtentY        =   4260
  42.       _StockProps     =   77
  43.       Style           =   0
  44.    End
  45. End
  46. Attribute VB_Name = "frmODBCErrors"
  47. Attribute VB_Creatable = False
  48. Attribute VB_Exposed = False
  49. Option Explicit
  50.  
  51. 'For this form to work properly, the Microsoft
  52. 'Outline control must be installed in the Toolbox.
  53.  
  54. Private Sub cmdQuit_Click()
  55.     Unload Me
  56. End Sub
  57.  
  58. Private Sub Form_Resize()
  59.     If Me.WindowState = NORMAL Then
  60.         If Me.ScaleHeight < (4 * cmdQuit.Height) Then
  61.             Me.Height = (6 * cmdQuit.Height)
  62.         End If
  63.         If Me.ScaleWidth < (4 * cmdQuit.Width) Then
  64.             Me.Width = (4 * cmdQuit.Width)
  65.         End If
  66.  
  67.         'Center the form
  68.         Me.TOP = (Screen.Height - Me.Height) / 2
  69.         Me.Left = (Screen.Width - Me.Width) / 2
  70.     
  71.         'Redraw the controls
  72.         cmdQuit.TOP = Me.ScaleHeight - (1.25 * cmdQuit.Height)
  73.         cmdQuit.Left = Me.ScaleWidth - (cmdQuit.Width + 0.25 * cmdQuit.Height)
  74.     
  75.         outErrors.TOP = 0.25 * cmdQuit.Height
  76.         outErrors.Left = 0.25 * cmdQuit.Height
  77.         outErrors.Width = Me.ScaleWidth - 0.5 * cmdQuit.Height
  78.         outErrors.Height = cmdQuit.TOP - 0.5 * cmdQuit.Height
  79.     End If
  80. End Sub
  81.  
  82.